From 8dd926cab5c4c49944d0a3d8c8e65498dd84e879 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Tue, 23 Feb 1993 14:14:19 +0000
Subject: [PATCH] * .gdbinit (xprocess): New command.

---
 src/.gdbinit | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/.gdbinit b/src/.gdbinit
index 61d56af59f6..7045c032e01 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -137,6 +137,15 @@ document xsubr
 Print the address of the subr which the Lisp_Object $ points to.
 end
 
+define xprocess
+print (struct Lisp_Process *) (($ & 0x00ffffff) | $data_seg_bits)
+output *$
+echo \n
+end
+document xprocess
+Print the address of the struct Lisp_process which the Lisp_Object $ points to.
+end
+
 define xscrollbar
 print (struct scrollbar *) (($ & 0x00ffffff) | $data_seg_bits)
 output *$
-- 
2.30.2